<%

Function Letra(numero)

	if numero<= 0 then numero = 1

	DIM resp
	
	resp =""

	Do while numero>=1
		
		resp = chr(((numero-1) mod 26)+97) & resp
		
		numero= (numero - ((numero-1) mod 26)) / 26
		
	Loop
	
		
	Letra = resp 
		
End Function

%>